home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazine 28 Bonus / CDRomMagazine-SoftKey-ArtPassion-FrenchVersion-Win31Mac.bin / data / crmixpl.dir / 00084_Script_INITIALIZE COLOR WHEEL < prev    next >
Text File  |  1996-05-07  |  7KB  |  210 lines
  1. -- ---------------------------------------------------------------
  2. -- DISCUSSION OF GAME
  3. -- the color wheel game allows the user to mix colors and
  4. -- create the color wheel.  The user can mix only the 
  5. -- primary colors to make other colors (hence the finger
  6. -- cursor is used only for the primary colors and for
  7. -- the clear button). Colors are chosen randomly from
  8. -- a global variable possibleColorsList which is a
  9. -- property list whose properties are colors and whose
  10. -- values are the pallete numbers of the colors. As 
  11. -- the user mixes the primary colors to make a new
  12. -- color, the new color is removed from the possibleColorsList
  13. -- and any new colros the user can now make are added to
  14. -- possibleColorsList. Each color is defined by the parts
  15. -- of blue, yellow, and red used to make the color and are
  16. -- all of the form: BxRzYw where x,z and w are the parts
  17. -- of blue, red and yellow respectively used to make the
  18. -- given color.
  19. -- WARNING: because possibleColorsList is a property
  20. -- list, no two colors can have the same pallete color.
  21. -- If two colors have the same pallete number, the wrong
  22. -- one may be deleted from the possibleColorsList and then
  23. -- the user will not be able to create that color and 
  24. -- complete the color wheel.
  25. -- ---------------------------------------------------------------
  26.  
  27.  
  28. -- ---------------------------------------------------------------
  29. -- Handler initializeColorWheelGame 
  30.  
  31. on initializeColorWheelGame
  32.   defineCursors
  33.   setColorWheelGlobals
  34.   setColorWheelPuppets
  35.   setColorWheelVisibles
  36.   setColorWheelCursors
  37.   
  38.   -- possibleColorsList is a property list where the name of each
  39.   -- property is a color and the value of each property is the pallete
  40.   -- number of the color.
  41.   
  42.   global possibleColorsList
  43.   -- start out making green, orange, or purple
  44.   set possibleColorsList = ["B1R0Y1":227, "B1R1Y0":140, "B0R1Y1":23] 
  45.   puppetSound "StartGame"
  46.   upDateStage
  47. end
  48.  
  49.  
  50. -- ---------------------------------------------------------------
  51. -- Handler setColorWheelGlobals 
  52.  
  53. on setColorWheelGlobals
  54.   -- set sprites
  55.   global yellowSprite, redSprite, blueSprite
  56.   global B0R1Y1Sprite, B1R0Y1Sprite, B1R1Y0Sprite, -- orange, green and purple
  57.   global B0R1Y2Sprite, B0R2Y1Sprite -- yellowOrange and redOrange
  58.   global B1R0Y2Sprite, B2R0Y1Sprite -- yellowGreen and blueGreen
  59.   global B1R2Y0Sprite, B2R1Y0Sprite -- redPurple and bluePurple
  60.   global B1R0Y3Sprite, B0R1Y3Sprite, B0R2Y3Sprite, B0R3Y2Sprite
  61.   global B0R3Y1Sprite, B1R3Y0Sprite, B2R0Y3Sprite, B2R3Y0Sprite
  62.   global B3R0Y2Sprite, B3R0Y1Sprite, B3R1Y0Sprite, B3R2Y0Sprite
  63.   global clearSprite, answerSprite, guessSprite
  64.   global tooManySprite
  65.   
  66.   set B1R0Y3Sprite = 11
  67.   set B0R1Y3Sprite = 12
  68.   set B0R2Y3Sprite = 13
  69.   set B0R3Y2Sprite = 14
  70.   set B0R3Y1Sprite = 15
  71.   set B1R3Y0Sprite = 16
  72.   set B2R0Y3Sprite = 17
  73.   set B2R3Y0Sprite = 18
  74.   set B3R0Y2Sprite = 19
  75.   set B3R0Y1Sprite = 20
  76.   set B3R1Y0Sprite = 21
  77.   set B3R2Y0Sprite = 22
  78.   set B0R1Y2Sprite = 23
  79.   set B0R2Y1Sprite = 24
  80.   set B1R0Y2Sprite = 25
  81.   set B2R0Y1Sprite = 26
  82.   set B2R1Y0Sprite = 27
  83.   set B1R2Y0Sprite = 28
  84.   set B0R1Y1Sprite = 29 -- orange
  85.   set B1R0Y1Sprite = 30 -- green
  86.   set B1R1Y0Sprite = 31  -- purple
  87.   set yellowSprite = 32
  88.   set blueSprite = 33
  89.   set redSprite = 34
  90.   
  91.   set guessSprite = 10
  92.   set answerSprite = 9
  93.   set clearSprite = 4
  94.   set tooManySprite = 35
  95.   
  96.   -- the locH and locV of the "you have used too many..." warnings
  97.   global tooManyH, tooManyV
  98.   set tooManyH = 265
  99.   set tooManyV = 82
  100.   
  101.   -- set Cursors
  102.   setHandCursor(redSprite)
  103.   setHandCursor(blueSprite)
  104.   setHandCursor(yellowSprite)
  105.   setHandCursor(clearSprite)
  106.   
  107.   -- set combination globals
  108.   global answerCombination
  109.   set answerCombination = "B0R0Y0" -- 0 blues, 0 reds, 0 yellows
  110.   
  111.   -- set data globals
  112.   global palleteNumbers
  113.   put field "palleteNumbers" into palleteNumbers
  114.   
  115.   -- set variables for number of each color used
  116.   global numBlue, numRed, numYellow
  117.   set numBlue = 0
  118.   set numRed = 0
  119.   set numYellow = 0
  120.   
  121.   global numBSprite, numRSprite, numYSprite
  122.   set numBSprite = 6
  123.   set numRSprite = 7
  124.   set numYSprite = 8
  125. end
  126.  
  127. -- ---------------------------------------------------------------
  128. -- Handler setColorWheelPuppets 
  129.  
  130. on setColorWheelPuppets
  131.   global answerSprite, guessSprite
  132.   global numBSprite, numRSprite, numYSprite
  133.   
  134.   
  135.   puppetSprite answerSprite, TRUE
  136.   puppetSprite guessSprite, TRUE
  137.   puppetSprite numBSprite, TRUE
  138.   puppetSprite numRSprite, TRUE
  139.   puppetSprite numYSprite, TRUE
  140. end
  141.  
  142. -- ---------------------------------------------------------------
  143. -- Handler setColorWheelVisibles 
  144.  
  145. on setColorWheelVisibles
  146.   global yellowSprite, redSprite, blueSprite
  147.   global B0R1Y1Sprite, B1R0Y1Sprite, B1R1Y0Sprite, -- orange, green and purple
  148.   global B0R1Y2Sprite, B0R2Y1Sprite -- yellowOrange and redOrange
  149.   global B1R0Y2Sprite, B2R0Y1Sprite -- yellowGreen and blueGreen
  150.   global B1R2Y0Sprite, B2R1Y0Sprite -- redPurple and bluePurple
  151.   global B1R0Y3Sprite, B0R1Y3Sprite, B0R2Y3Sprite, B0R3Y2Sprite
  152.   global B0R3Y1Sprite, B1R3Y0Sprite, B2R0Y3Sprite, B2R3Y0Sprite
  153.   global B3R0Y2Sprite, B3R0Y1Sprite, B3R1Y0Sprite, B3R2Y0Sprite
  154.   
  155.   global clearSprite, answerSprite, guessSprite
  156.   global numBSprite, numRSprite, numYSprite
  157.   
  158.   set the visible of sprite 1 = TRUE
  159.   set the visible of sprite 2 = TRUE
  160.   set the visible of sprite 3 = TRUE
  161.   set the visible of sprite 5 = TRUE
  162.   
  163.   set the visible of sprite yellowSprite = TRUE
  164.   set the visible of sprite redSprite = TRUE
  165.   set the visible of sprite blueSprite = TRUE
  166.   
  167.   set the visible of sprite answerSprite = TRUE
  168.   set the visible of sprite guessSprite = TRUE
  169.   set the visible of sprite clearSprite = TRUE
  170.   
  171.   set the visible of sprite numBSprite = TRUE
  172.   set the visible of sprite numRSprite = TRUE
  173.   set the visible of sprite numYSprite = TRUE
  174.   
  175.   set the visible of sprite B1R0Y3Sprite = FALSE
  176.   set the visible of sprite B0R1Y3Sprite = FALSE
  177.   set the visible of sprite B0R2Y3Sprite = FALSE
  178.   set the visible of sprite B0R3Y2Sprite = FALSE
  179.   set the visible of sprite B0R3Y1Sprite = FALSE
  180.   set the visible of sprite B1R3Y0Sprite = FALSE
  181.   set the visible of sprite B2R0Y3Sprite = FALSE
  182.   set the visible of sprite B2R3Y0Sprite = FALSE
  183.   set the visible of sprite B3R0Y2Sprite = FALSE
  184.   set the visible of sprite B3R0Y1Sprite = FALSE
  185.   set the visible of sprite B3R1Y0Sprite = FALSE
  186.   set the visible of sprite B3R2Y0Sprite = FALSE
  187.   
  188.   set the visible of sprite B0R1Y1Sprite = FALSE
  189.   set the visible of sprite B1R0Y1Sprite = FALSE
  190.   set the visible of sprite B1R1Y0Sprite = FALSE
  191.   set the visible of sprite B0R1Y2Sprite = FALSE
  192.   set the visible of sprite B0R2Y1Sprite = FALSE
  193.   set the visible of sprite B1R0Y2Sprite = FALSE
  194.   set the visible of sprite B2R0Y1Sprite = FALSE
  195.   set the visible of sprite B2R1Y0Sprite = FALSE
  196.   set the visible of sprite B1R2Y0Sprite = FALSE
  197. end
  198.  
  199. -- ---------------------------------------------------------------
  200. -- Handler setColorWheelCursors
  201.  
  202. on setColorWheelCursors
  203.   global yellowSprite, blueSprite, redSprite, fingerCursor
  204.   global clearSprite
  205.   
  206.   set the cursor of sprite yellowSprite = fingerCursor
  207.   set the cursor of sprite blueSprite = fingerCursor
  208.   set the cursor of sprite redSprite = fingerCursor
  209.   set the cursor of sprite clearSprite = fingerCursor
  210. end